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INTRODUCTION 


THIS MANUAL CONTAINS A COLLECTION OF TIPS AND PROGRAMS DESIGNED 
TO IMPROVE AND EXPAND THE CAPABILITIES OF THE WAFADRIVE SYSTEM. 
THERE IS NO STORAGE SYSTEM CURRENTLY AVAILABLE FOR THE 
TIMEX/SINCLAIR COMPUTERS THAT OFFER 4S MUCH AS THE WAFADRIVE. 


YOUR INITIAL PURCHASE ОҒ THIS MANUAL ENTITLES YOU UPDATE 
BULLETINS AS THEY BECOME AVAILABLE. IF YOU HAVE ANY INFORMATION 
THAT YOU WOULD LIKE TO CONTRIBUTE, WE WILL GIVE A FREE WAFER FOR 
ITEMS PUBLISHED. 
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THE CONTENTS OF THIS MANUAL ARE NOT TO BE REPRODUCED WITHOUT 
WRITTEN PERMISSION FROM DAMCO ENTERPRISES 


TAPE TRANSFER UTILITY 


When transferring software from cassette to wafer, some kind of 
transfer utility program is virtually indispensable. The program 
given here is written largely In BASIC and sets up its own 


machine code subroutines. The three facilities provided by the 
program ares 


1. READ HEADER 

Essential for analysing the attributes of files on cassette. 
Displays the auto-run line number of BASIC programs, location 
and length of code files. It works by reading the program headar 


‘which preceeds the file on tape. Beware of false headers! 


2. RECLAIM RAM 


This option effectively de-initialises the Hafadrive Operating 
System and reclaims all RAM used. The BASIC program is 
preserved. 


3. STOP 

This can be used to load a BASIC program such that it Is 
prevented from auto-running once loaded. It will thus cope with 
"enti-merge" programs. The avto-run line number is displayed on 
screen with the program name. The utility program itself is 
overwritten. 


The machine code subroutines used by the program are all 
relocateable and can be lifted for use in your own programs. 
Assembly language listings are also given. Memory saving 
techniques have been used in the BASIC to assist when working in 
“confined spaces”. The program can be further reduced In size if 
required by splitting It into three parts and/or by loading the 


machine code straight into the printer buffer os a seperate 
file. 


————— Sco “ 


10 PAPER VAL “5”: INK NOT PI: BORDER VAL "5": GO SUB VAL 7163” 
20 CLS : PRINT “Enter numberi""'"''* 
30 PRINT " 1 READ HEADER”?” - loads header from cossette 

% displays file attributes." 
40 PRINT ''" 2 RECLAIM КАМ”? = de-initlolises HOS & 
reclaims RAM." 


50 PRINT ''" 3 STOP"'" - loads BASIC program from casse 
tte, preventing auto- run." " 

60 LET a$sINKEY$: IF at¢“i” OR a$»"3" THEN GO TO 60 E 

70 CLS : GO TO VAL "100""UAL af 5 


100 REM HEADER READ т 
110 PRINT “ HEADER READ ^''"Play tape...": RANDOMIZE USR ЧА. = 
3320”: CLS : LET a»VAL "23296" 

120 LET t=PEEK о: LET a=at+SGN PI 

130 PRINT "TYPE:","Program" AND (NOT t)3”Number array” AND (t#S 
ЭМ PI);"Stiring array" AND (t#VAL 273) “Bytes” AND (t*INT PI) 

140 PRINT '^NAME:",: FOR nsSGN PI TO VAL 7107: PRINT CHR$ (PEEK 
0) 35 LET asa*SGN PI: NEXT n 

150 PRINT ''"LENGTH:",PEEK atVAL “256#PEEK (а%127: LET asatVAL 
+2“ | 

160 LET bsPEEK atVAL “2S6#PEEK (0+1) “: IF NOT t THEN PRINT '"AU 
TO-RUN:",: IF BCVAL “1e4" THEN PRINT b 

170 IF t=INT PI THEN PRINT '"START:^",b 

180 PRINT £NOT PI;^Press a kay to return to menu": PAUSE NOT PI 
: GO TO VAL "20" 

200 REM RECLAIM 

210 PRINT ^ RECLAIM RAM " 

220 GO SUB VAL “2е37: CLEAR ж: RANDOMIZE USR VAL "23340": GO TO 


VAL ^20" 
300 REM STOP 
310 PRINT ~ STOP ^**"WARNING! - this program is lost when selec 


ted.^: GO SUB VAL “2e3” 

320 PRINT "The number shown on screen ls the line from which 
the program would normally auto-run."*"'"Play tape..." 3 USR VAL 
"23369": STOP 

1000 RESTORE 

1010 DATA "221^7,"33^7,"70","91","221"7,7229^,^717"7,"17","0","1757,"7 5 
3","205","86","5","221","2285",^"48","242","251","201" 

1020 DATA "2197,"127,"205",*"46"7,710","205",^7159",^0","42","997,^ 
32","34","101",792","42","146"7,"927,"34"7,"104^7,792"," 33" "182^," 
?32","1","244","80","195","232","25" 

1030 DATA "1","34","0","247^","213","221","2285","221"7,"34","1","2 
55","221^7,"54","15^,"128",762","17,^50",7116","92","2057,"58","7 
",762","255","50","7687,792","237"7,"75" "66" ,"92","205","27"," 26" 
,7202",7"2955" 

1040 FOR o»VAL "23320" TO VAL "23405": READ a$: POKE o,VAL a$: N 
EXT а: RETURN 

2000 REM CONTINUE? 

2010 PRINT ''"Press Y to proceed or any other key to return to m 
enu” 

2020 PAUSE NOT PI: LET a=PEEK VAL “235407: IF at>CODE "Y" AND a< 
»CODE "y^ THEN RUN 

2030 CLS : RETURN 


2 org 60000; De-bug address - normally 23320 
3 ¿CASSETTE HEADER READER 
4 14 ix,232963 Bose address 
EAé0 DD21005B 
ld hdr:push ix; Save it 
ЕА&4 DDES 
6 14 de,&11jy 17 bytes 
ЕА66 111100 
7 хог ор A=O indicates header 
| EAS? AF 
8 scf; СҮзі indicates load 
EASA 37 
9 call &0556; Load bytes 
EA6B CD5605 
10 pop ix; Retrieve base 
EASE DDE1 
11 jr nc,ld_hdry Repeat until header loaded 
EA70 ЗО‹ЕА&4› 


12 е! : EA72 FB 
13 ret EA73 CY 
1% 3} 

15 


a 
..16. ;RECLAIM RAM . © 
|: reclim iin a, (Och); page HROM 


EA74 OBOC 

18 call clsall; close 011 channels 
EA76*CDOOOO0 

19 call retei, page SROM 
EA79«*CDO0000 

20 ld hl, (stkbot) pcollapse calc. stack 
EA7C#2A0000 

21 1а (stkend) ,hl 
EA7F #220000 

22 18 hi, (membot) 
EAB2#2A0000 

23 ld (mam) ,h1 
ЕА85и220000 


24 19  h1,23734 
ЕА88 21В65С 
25 id bc,2292bEA8B O1F408 
26 jp rec, 2; reclaim space & return . 
EABEXC 30000 
clsall:equ  0o2eh 
retei :;equ O09fh 
s&tkbot:equ Scé3h 
stkendiequ 5cé5h 
membotiequ 5с92Һһ 
mem еди Scé6h 
rec, 2 :equ  19e8h 
34 Y 0 
35 jJ 


36 STOP 
stop 214 Ьс,34р For 2*17-byte headers 
Е491 012200 
38 rst 5230) Make BC spaces |n WKSPCE 


EA94 F7 
39 push dej Transfer base to IX 
ЕАФ5 DS 
40 pop іх ЕА96 DDE1 


41 ld (ix*12,285, Signlfy null name 
E£A98 DD3é601FF 

42 ld (1х+15) ,&80; Signify no parameters 
EAPC О0360ОҒ8ВО 


43 ld а,1 ЕААО ЗЕО1 
44 14 (tadr_1),a 
ЕАА2М320000 


45 са11 &0730; Load program 
EAAS СОЗАО? 
46 ld а,255 EAAS JEFF 


47 ld (nsppc?,a; Reset to prevent auto-run 
EAAAN 320000 

«8 14 bc, (newppc?; Get line to Бе jumped to 
EAAD*ED4BOOOO 


49 call &laib; Print BC routine in ROM 
EAB1 CD1B1A 
50 rst 08; End with error report 
EAB4 CF 
$1 defb 255 EABS FF 
tadr_liequ 23668 
nsppc едо 23620 
newppc:equ 23618 


THE FILE UTILITY PROGRAM 


Presented here is an extremely useful utility program for the 
Hafadrive. It is in the form of a BASIC program which sets up 
ond invokes its own machine code routines. All operations оге 
performed on the wafer in drive А. Most of them work by 
manipulating the RAM directory - the beauty of a directory 
driven system (as opposed to the Microdrive for example). Five 
options are given in the program as follows. 


1:RE-NAME FILE 

You are asked for the old and new file names, the location of 
the file entry is found in the RAM directory and the new name 
“poked” in place of the old. The directory is then updated using 
a short m/c routine which makes use of a hook code to update the 
wafer directory. The program sets CAPS LOCK on when requesting 
the new file name, but if you turn it off, it is possible to 
re-name the file with lower case characters. This file сап then 
not be loaded etc. from BASIC (try it!). You could use this to 
implement a simple method of software protection whereby the 
file could only be loaded back by а special program which 
converted the RAM directory entry back into upper case. 


2:POSITION TAPE 

Allows the read/write head to be positioned to any sector along 
the length of the tape. Note that the “current sector” is the 
one just read by the Nafadrive. Thus, files can be stored on the 
wafer with a gap between them such that they chain load 
optimally. This is achieved by positioning the head to the last 
sector of the preceeding file. 


3:F ILE ATTRIBUTES 

Probably the most useful option. Effectively a “header j eader” 
which displays the most important attributes of a file including 
type, designation (which can be different from type if option 5 
is used), start address (for BYT files), length and avto-run 
line number (or address). Also given ore the current and 
directory sectors and a list of the sectors occupied by the 
file. You will be asked whether you require output to screen ог 
printer (see note below). The program gets the sector 
information from the directory but the rest is obtained by 
reading the first sector of the file into the read/write buffer. 
This contains the actual file attributes which are then “peeked” 
by BASIC. 


4:LAST TO FIRST 

Тһе Hafadrive supports the abbreviated command LOAD М which 
loads the first file appearing in the directory of the dafault 
drive. This is intended to be used for BASIC loaders, menu 
driven programs etc. and can be very useful. The disadvantage is 
that normally the file entries in the directory are organised 
chronologically. This means that there is no way of altering the 
first program without setting it to the end of the directory. 
However, this option allows the latest file saved to be put to 
the “top of the heap". It does so by manipulating the RAM 
directory - moving all the entries down then bringing the bottom 
one up to the top. As usual, the routine ends by updoting the 
RAM directory to wafer. 


22 2. aom m ee чш mà et oie 


S:CHANGE FILE TYPE 

Apart from the three file types supported by the WOS (PRG, BYT 
& DAT), there are five other file types which may appear in the 
directory - BAK (back-up), TXT (text), LST (list), HLP (help) & 
??? (undefined, temporary or unclosed file). The HOS will not 
recognise any of these files from BASIC, they ore intended to be 
utilised by special programs. Thus you cannot alter a PRG file 
to LST for example and expect it to load from BASIC ќа file type 
error results). Again, the most likely use of this facility 
(apart from its novelty value) will be ‘in simple file protection 
whereupon the file can only be loaded from within a special 
program which first sets the file type back to normal. At any 
rate, this option allows you to alter file types at will. 


Dedicated "Haferdrivers" wlll no doubt find = os I do -~ the 
above program Indispensable. It is wall worth the effort of 
typing in. Lines 30 & 1395 wlll need altering to suit different 
printers. It is set for my own (non-standard) printer as is. If 
you intend to use a ZX or Alphacom type printer, line 30 con be 
deleted and the “60” іп line 1395 changed to "32". 


10 REM File utility (P) 
20 BORDER О: PAPER O: INK 4: CLS 
30 CLEAR #: OPEN $*3,"C^: LPRINT CHR$ 27+” R^*CHR$ 0: REM Initi 
alise printer & select U.S. character set 
100 PRINT INK 73AT 0,9;"MAIN MENU” 
101 PRINT AT 5,6;"1 Re-name file" 
102 PRINT ?ТАВ 6;“2 Position tape” 
103 PRINT "TAB 6;73 File attributes” 
104 PRINT "TAB 6;"4 Last to first" 
105 PRINT "ТАВ 6р5 Change flle type" 
110 PRINT #0;"Enter choice..." 
115 LET аФ«ІМКЕҮ%: IF a$)"5” OR a$(^1" THEN GO TO 115 
120 CAT t€"a:": GO SUB 100*(10*UAL A$) 
999 RUN 
1100 КЕН Re-nome file 
1110 САТ и: PRINT °?" RE-NAME FILE? "''"Old name:^,: GO SUB 9700: 
GO SUB 9000: PRINT n$'"New nama:",: GO SUB 9700: ' PRINT ns 
1120 FOR x=0 TO 9: POKE a*x,CODE п%(х+1)2 NEXT x: GO SUB 9500: R 
ETURN 
1200 CLS : PRINT “ POSITION TAPE: ": GO SUB 9200 
1210 PRINT ’' "Current sector:",PEEK 23769'"Dir. sector:",PEEK 24 
889''"Enter number of sector to be advanced to (must be in ra 
nge 1-";PEEN 24885 5"):", ' 
1220 INPUT b: LET bsINT b: IF b(1 OR Ь›РЕЕК 24885 THEN GO TO 123 
9 & 
1230 PRINT b: POKE 235781,6: RANDOMIZE USR 23350 
1240 PRINT ''^Current sector now: “sPEEK 23769: PAUSE 0: RETURN 
1300 CLS : PRINT ~ FILE ATTRIBUTES: “АТ 7,5)71 Screen"''" 2 
Printer” ;#0;"“Enter choice...” 
1310 IF INKEY$="2” THEN LET prtis3: GO TO 1330 
1320 LET prtz2: IF INKEY$4»"1" THEN GO TO 1310 
1330 CAT м: PRINT '" FILE ATTRIBUTES: ": GO SUB 9700: CLS : PRIN 


T " FILE ATTRIBUTES: “'’#prt;3” Filenames: 7;п% 
1340 GO SUB 9000: GO SUB 9900: GO SUB 7300 
1345 PRINT 4$prt;"File designation: “sds > 


1350 PRINT #prt;” File type: “sts 

1355 PRINT #prt;” Start; “pst 

1360 PRINT %жргі;” Length: “51% 

1365 PRINT *prt;" Auto runt “gas 

1375 PRINT #prt;” Directory sector: “;PEEK 24889 

1380 PRINT $prt;" Current sector: “PEEK 23769 

1385 PRINT $prt;^" Sector(s) used: "3 

1390 LET a=a+il: FOR п=1 TO PEEK a: LET asa*1: DIM a$(4): LET b$ 

a(STR$ PEEK а) +" ^: LET a$( TO LEN b$)»b$: PRINT $prtjao$;: NEXT 
n 5 . 

1395 IF prts3 THEN FOR n»1 TO 80: LPRINT ^" 7%: NEXT n 

1399 PRINT #0;“Press any key": PAUSE 0: RETURN 

1400 CAT 4: PRINT ''"LAST TO FIRST"''"Press Y to continue or ano 
ther key to abort this option.” 

1410 LET o$*INKEY$: IF a$2"" THEN GO TO 1410 

1420 IF a$()»"y" AND в0%%2“Ү” THEN RETURN 

1430 CLS 2 PRINT “Updating directory..."^: 00 SUB 9200: RANDCMIZE 
USR 23296: САТ #; PAUSE 0: RETURN 

1500 CAT 4: PRINT ?“ CHANGE FILE TYPE: “: GO SUB 9700: GO SUB 90 

00: GO SUB 9700 

1510 CLS : PRINT *'"Filename:"jn$ 

1520 PRINT АТ 3,5,"0 for «PRG flile^''" 1 for .BYT filer“ 


2 for .DAT file”’*” 3 for BAK file"?'" 4 For .TXT fi 


Та” к= S for .LST file"*'*" в for „НЫР file"*''" 7 for 
47??? file” er” B leave unchanged" 

1530 PRINT #0;“Current %ураж”ҙах%)”, enter number of new file ty 

pei" 


1540 LET a$-INKEYS: IF a$4"0O" OR o$5"8" THEN GO TO 1540 

1550 PRINT $0;a$: IF a$-2"8" THEN RETURN В 

1560 PONE at10,ft-ext+VAL at: GO SUB 9600: RETURN 

9000 REM Find file address 

9010 LET 0=24910: FOR x1 TO PEEK 2488B: LET m$z""; FOR ysO TO 9 
5 LET m$2m$*CHRS$ PEEK (ағу): NEXT ys IF m$=n$ THEN RETURN 

9070 LET os0*12*PEEN (іа%11): NEXT x 

9080 CLS : PRINT "File:";n$gTAB 195,"...not found.": PAUSE O: RUN 


9200 REM Code poke 

9210 RESTORE 9200 

9220 DATA 205,69,91,124,181,200,229,25 

9222 DATA 35,209,229,183,237,82,193,229 

922% DATA 197,229,193,235,229,229,17,28 

9226 DATA 93,237,176,225, 17, 78, 97, 183 

9228 DATA 237,862,229, 193,225, 43, 209,27 

9230 DATA 237,184,193,33,28,93,17,78 

9232 DATA 97,237,176,207,39,201,237,91 

9234 DATA 229,92,207,43,33,0,0,3«4 

9236 DATA 227,92,207,52,201,33,56,97 

9238 DATA 70,4,9,32,4,33,0,0 

9240 DATA- 201, 17,22,0, 25,227,17,11 

9242 DATA О, 25, 126,131, 95, 225, 5,200 

9244 DATA 35, 24 241,241, 0,0,0,0 

9246 DATA. 30, 0,207, 45, 207 ‚52,201 

9250 FOR с=2329ФА то 23406 

9240 READ b: POKE c,b: NEXT c: RETURN 

9300 REM Read file sector a 
9310 GO SUB 9200: POKE 23401,PEEK (а%12): POKE 23779,0: POKE 237 
80,0: RANDOMIZE USR 23400 

9320 DEF FN p$(oa)zSTR$ (256wPEEK (a*1)*PEEK a) 

9330 LET t=PEEK 23831: IF i248 OR t=202 THEN LET t$s"PRG" 

7332 IF t=2 OR te3 THEN LET t$z^"BYT" 

9340 LET s$zFN p$(23832) AND t$? "PRG": LET 1%=РМ p$(23834) :' LET 
6$*FN р% (23836) AND (t#3 OR %іш202): RETURN 

9600 REM Update directory 

9610 PRINT #0;” Updating directory...”: GO SUB 9200: RANDOMIZE US 
В 23347: CAT *: PAUSE O: RETURN 

9700 REM Input file name 

9710 POKE 23658,8: INPUT “Enter file name: "у LINE n$: IF LEN n$ 
210 THEN PRINT $0;^Filename too long!^: PAUSE 50: GO TO 9710 
9740 IF LEN n$<)10 THEN LET n$zn$«" ": GO TO 9740 

9799 RETURN 

7700 REM Determine file type 

9910 LET ft-PEEK (a*10): LET ext=ft-SHINT (ft/8): LET geINT (РАЛ 


7930 LET g= (9=2 OR 9“3): LET d$=“PRGBYTDATBAKTXTLSTHLP???” (Jwext 


+1 TO 3#ext+3) 
7999 RETURN 


©. ay es ру 


COPY ON EPSON PRINTERS 


The COPY command is not directly supported via the Wafadrive's 
Centronics or RS-252 interfaces but with a short machine code 
routine it is possible to implement a high resolution screen 
dump to printers capable of graphics operation. 


Epson control codes are by far the most commonly used and the 
routine given here utilises these. It will thus also work on 
many non-Epson printers which recognise ESC "A" and ESC "L^", 


The routine will give screen dumps in two sizes. It locates in 
the printer buffer and using the Wafadrive's machine code 
auto-run facility, self-initialises on loading. Another useful 
Wafadrive facility is utilised such that the routine is invoked 
by an additional command DRAW *, which takes the place of 

COPY (COPY ж cannot be used for technical reasons). Note 

that attempts to LPRINT LLIST or COPY to the Sinclair 

Printer will cause the code to be wiped from memory. 


Two additional "system variables" are created in the printer 
buffer along with the program. Location 23296 holds the "scale", 
which can be either 1 or 2 for.single or double size (invalid 
values will be defaulted to 2). The value held in location 23297 
determines the left hand margin (spaces). Most printers will 
ignore excess data if the margin is too wide. 


The program given is for the Centronics port (Cit does not have 
to. be opened to a stream first). To alter for RS-232, POKE 3 
25541,68. The channels do not have to be opened to a stream for 
the routine to work as it addresses the hardware directly but 
the baud rate may have to be formatted if not set to 1280. 


BREAK can be used to stop printing but has the disadvantage 
that the printer may well be still in graphics mode when 
stopped. A better solution is to hold the A key down until 
printing stops. 


10 LET a=23296: FOR t=1 TO 15: LET s=@: FOR n=] TO 16: READ bi 


POKE a,b: 


INT 
20 
1020 
BS 
110 
50 
120 


МЕХТ 
DATA 


DATA 


DATA 


92,2160 


150 
4 
140 
150 
160 
29 
170 


DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


LET s=stb: LET а=а+1: NEXT n: READ bs IF b<>s THEN PR 


"Error in line ";90*10«t: STOP 


t: SAVE *"draw dx-85",23295,256,23298: STOP 
2,6,33,183,92,1,060,91,113,35,1124,219,12,2235, 195,226,16 


1,197,197,22,8,120,215,176,54,71,4,126,7,16,2553,203,16 
19,195,4,197,21,52,238,195,195,201,215,95,205.121,26,2 
201,58,0,91,61,200,62,5,50,9,91,201,254,252,194,26,174 
1,523,71,91,195,9,1,205,55,10,205,219,1,1,9,0,1107 

52,27 ,205, 42,91,62,65, 205,42,91,62.В, 205,42,91,02,1562 
15,205,42,91, 205,62,12,40,21, 245,52,254,97,52, 15,62,14 
27,205,42,91,%2,65,205,42,91,02,12,195,42,91,58,),1291 
91,95,28,29, 42,7 ,62,32,205, 42,91,24,246, 52,27 ,205,12B5 
42,91,62,76,205,42,91, 175,295,42,71,205,49,91,58,0,152 
91,205,42,91,205,17,91,205,497,91,125,40,24,51,51,51,15 
51,22,4,205,15,205,27,2023,45,21.52,247.125,205,42,91,1 
125,205,42,91,125,205,42,91,12,52,217,02,10,205,42,91, 
62,13,205,42,91,205,49,91,62,8,40,2,205,65,128,254,151 


192,200,71,195,100,91,0,0,0,0,0,0,0,0,0,0,849 


1 


CENTRONICS/RS—2s2z CHANNEL DRIVER 


When printing to the Wafadrive Centronics or RB-232 ports using 
LPRINT etc. the TAB command is not normally interpreted 
correctly. If you have tried using TAB to control ап 88-column 
printer you may have found that the command simply causes the 
printer to print rubbish оғ go "haywire". 


The reason for this is that TAB is not expanded by the 
Spectrum’s PRINT/LPRINT routines in ROM — it expects the 
channel driver routine to do it. If it were expanded it would 
operate on a 52 column basis anyway. 


If we require TAB to operate properly we must incorporate our 
own machine code channel driver to perform the function. Such à 
routine is described here. Apart from expanding TAB, the 
program also sets the print width to 64 columns. This gives a 
margin on 80 column printers and is easier when relating 
printout to the Spectrum's 32 column screen. 


The routine fits easily into the area of memory reserved ав a 
buffer for the ZX Printer - just above the screen, This is not 
affected when the ZX Printer is not used and most software also 
leaves it free. The only drawback is that the COPY command 

will overwrite the contents of the buffer and crash the system 
next time the printer is accessed. : 


I must say at this stage that the routine is not my own. It is 

an adaptation of an RS-232 driver which appears in the Sunshine 
Publications' book Master Your ZX Microdrive written by Andrew 

Pennell and reproduced here by his kind permission. э 


Enter the BASIC program listed overleaf, save and run it. It 
will generate a copy of the channel driver on your wafer in 
drive A. If you have an RS-232 printer, before you run the 
program add the line: 


55 PDKE 25465,30 


\ 
The routine is saved as an auto-run machine code file. This is 
so that it self-initialises on loading. 1% can subsequently be 
reset (if you reset your printer for instance) at any time by 
entering RANDOMIZE USR 23296. 


If you use an RS-232 printer the baud rate must be set from 
BASIC using the FORMAT command. The Centronics version can 
actually be used without the Wafadrive initialised - if you know 
how to deinitialise it or if you load the program from cassette. 


The principle behind the channel driver is very useful. This 
routine could be extended to provide page numbering, varying 
column widths, pause for paper change between sheets, left hand 
margins etc. The source listing is therefore given for those 
people conversant with machine code. The assembler used is ZAPP 
by Hewson Consultants which is available from ROTRONICS. 


COPYRIGHT (c) Graham Booth (ROTRDNICS Ltd) 1985 


10 REM 64 Column TAB routine 

20 CLS FRINT "Ensure the destination wafer is in drive А wit 
h at least 1k spare capacity then press a keyi" 

20 PAUSE Ø: GO SUB les 

40 SAVE *"tabc 64" ,23296,176,23296 . 

50 САТ э: STOF 
1000 REM DATA ; | i 
1010 DATA 42,79,92,1,1%,0,9,1,35,91,115,535,112,172,55,171,1004 
1020 рата 91,119,5%,119,61,255,119,0,52,5,207,55,257,125,061,92,1 
585 
1050 DATA 195,118,27,33,172,91,203,78,40,40,205,86,40,5,203,142, 
1676 
1040 DATA 203,150,201,205,214,87,214,54,210,108,4,45,122,150,55, 
220,2228 
1050 DATA 102,91,122,45,150,55,200,71,62,52,197,217,215,217,195, 
16,1963 | 
1@50 DATA 247,201,254,22,49,31,224,15,40,7,224,23,63,192,205,206 
42068 
1070 DATA 201,205,70,202,134,192,205,154,43,54,0,55,062,10,205,16 
5,1912 
1080 DATA 91,62,12,24,46,254,155,56,5,214,165,195,18,12,203,154, 
1555 
1090 DATA 22,59,92,205,154,254,252,32,2,205,198,254,128,56,2,62,1 
744 
1100 DATA 6%, 205,165,91,33,171,91,52, 126,254, 64,192,55,285,182,9 
1,1938 
1110 DATA TOS, 198,201, 213,229, 975,207 ,31,225, 209,281 ,9,0,0,0,8,28 
12 
1200 CLS PRINT "Wait a while..." 


1210 RESTORE let; 
READ b: 
b<>s THEN PRINT “CHECKSUM ERROR IN LINE ";1е5+1@#т: 


D 16: 


1220 NEXT 


FOR n=1 T 
READ b: IF 
STOP 


LET az25296: 
FOKE a,b: 


FOR m=i TO 118 
LET s=s+b:t LET atati: 


LET ==0й: 
NEXT ns 


т; RETURN 


PRINTING GRAPHICS FROM BASIC 


The Spectrum LLIST and LPRINT commands automatically expand 
the character codes outside the normal ASCII range 0-127 into 
Spectrum tokens - see appendix A of the Spectrum BASIC 
Programming Manual. Codes above 165 are expanded ínto commands 
and symbol tokens which are ASCII composites, comprising 
anywhere between two (PI, FN, AT stc.) and nine (RANDOMIZE) 
characters. 


Most printers use control codes which lie in the range 0-127. So 
there is usually no problem in accessing facilities such as 
underlining, bold printing etc. from BASIC. The problem comes 
when attempting to print 8-ріп graphic data. When the most, 
significant bit (msb) of the data is set (ie. codes above 128), 
the Spectrum expands the data into a string of codes before 
transmitting it to the RS—232 or Centronics ports fec printing. 


The result of this is twofold. Firstly, the intended print 
pattern is mat reproduced and the graphics are distorted. 
Secondly, more codes are gent than intended and the printer 
invariably gets confused, printing random characters etc. 


There are two solutions: 


1. The graphics data can be restricted to 7 bits or less and the 
line feed increments reduced to suit. This is usually possible 
but it can make the BASIC complicated and the printing slower. 


2. Resort to machine code. A simple routine is all that is 
required to pass the data directly to the Centronics or К5-252 
port and this can be incorporated into a BASIC routine very 
gasily thusi 


10 DATA 52,0,207,51,201 
20 LET A-USR "A": FOR Сва TO А+4: READ Nr POKE C,N: NEXT C 


This locates in the UDG area but can be relocated anywhere by 
altering the value of A. To send a byte to the printer use: 


POKE A*1,N: RANDOMIZE USR A 


Where N is the byte to be sent. For RS-232, simply alter the 
number 31 in line 10 to 30. Note that the channel does not have 
to be previously opened to a stream for the routine to work. 


For the interested the machine code is as fellows: 


LD E,N  ;N POKED IN FROM BASIC 

RST 08 ;FORCE AN ERROR - PAGE IN WROM 

DEFB 31 ;SIGNAL "D/P TO CENTRONICS" (DEFB 50 FOR RS-232) 
RET ;BACK TO BASIC 


For example, a routine to print a "chequerboard" pattern on an 
Epson printer can be achieved by adding the following lines to 
the BASIC above: 


50 DATA 27,75,8,01 REM ESC,K,n,n 

40 DATA 170,85,170,85,179,85,170,85: REM GRAPHICS DATA 

50 FOR Ce1 TO 12: READ М: POKE A+1,Ns RANDOMIZE USR А: NEXT 
C: STOP 


UPGRADING SPECTRAL WRITER 


Spectral Writer is an extremely useful program but with a few 
modifications it can be improved even further. I use the program 
all the time and over a period have evolved a number of “bolt-on 


goodies" which I present here in the form of an upgrade ito 
"version 3.0". 


1: KNOWN BUGS 


There are two known "bugs" in the original program - both of 
which can have serious consequences unless you know about them. 
Firstly, the EMCY] command which is frequently used during 
editting to split a line should not be used with the cursor in 
column 63 - ie. at the end of a line. For reasons which have not 
(yet) been identified this causes a system reset. Secondly, the 
mechanism which automatically returns you to the text file when 
a faulty parameter is entered does not work properiy. The next 
time the block option menu is used to select a function, the 
program "hangs". Fortunately there is something we can do about 
this ~ in version 5.0 the feature is simply removed. If any 
errors cause the program to stop with an error report simply 
enter RUN to get back to the text file. 


2: DIRECTORY DISPLAY 


It is tiresome to have to select a seperate option (7) to view 
the directory before saving, loading or erasing files. Version 
5.0 asks for the required drive then displays the wafer ж 
directory before you are required to enter the file name. This 
makes these operations much more convenient and pleasant to use. 


3: MERGING TEXT FILES 


You may have observed that whilst it is possible to merge (or 
more correctly append) text files when loading from cassette, it 
is not possible to do so from wafer. Again, version 5.0 puts 
this right - but there is a limitation. If the total text loaded 
exceeds the overall text capacity of 352 lines then the program 
code will be overwritten - so take care. It is ‘possible to 
combine two files that exceed the text capacity by inserting the 
statement LOAD €"ar:code" before RUN in line 1628. The 

program code will then load from the program wafer (which must 
Бе in drive A) and overwrite any text which overlaps. I use this 
technique quite often when juggling with multi-file documents. 


4: PRINTING OF MULTIPLE COPIES 


Without access to a photo-copier it is often convenient to be 
able to leave the system printing out a document repeatedly. 
Some of you may even have got as far as identifying the print 
routine in the BASIC section and tried incorporating it ina 
FOR NEXT loop in an effort to achieve this. The problem is that 


the print routine leaves the cursor at the bottom of the text 
file when it is finished, and since printing always takes place 
from the current cursor position, none but the first copy gets 
printed. Version 3.8 overcomes this by resetting the cursor 
pointer after each print. 


If using the multiple print facility you will probably have to 
define a graphic contro) character for Form Feed (usually 12) 
and put it at the end of the text file so that printing always 
restarts from a new page. 


If page numbering is used, it will increment all the way through 
the copies. It can be reset by adding the statement POKE VAL 
*555335",VAL "n" among the pokes in line 5250 - n being the 
desired start page number, 


5: DEFINING GRAPHICS CONTROL CHARACTERS 


The problem when entering these control characters, is that the 
screen clears whilst the codes are being input. Thus it is quite 
easy to "lose track" of what you are doing. In version 5.0 the 
list of characters and their codes is kept on screen whilst new 
ones are being entered. 


6: USING SINGLE SHEET PAPER 


Printing of multi-page documents on single sheets of paper can 
be very awkward indeed. Some printers are equipped with paper 
end detection which deselects the printer and allows a new sheet 
of paper to be inserted, but in a lot of cases this is designed 
to function as an "early warning" with fanfold paper and 
operates 2 or 3 inches before the end of the sheet is reached. 
Version 5.0 offers you the option of a pause between pages to 
allow paper to be changed. 


When this is selected, printing will automatically be suspended 
until a key is pressed on the keyboard. No prompt message is 
displayed so as to keep the modifications as simple as possible. 


7: PARAMETER SELECT AT PRINT TIME 


It can be a nuisance to have to select option A from the block 
option menu to check things like page numbering before printing. 
Version 3.0 prompts for interface code, baud rate (1f interface 
code not zero), page numbering mode, next page number (if 
numbering mode not zero), lines per page, margin, number of 
copies and pause for paper change when option 8 is selected. 


8: SPEEDING UP LOADING 


If you use Spectral Writer often it is desirable that it loads 
as quickly as possible. The backup option in version 5,0 saves 
the three program files in such a way as to minimise loading 
time — it is now typically 20 secs rather than 50. The principle 


behind this is to verify each file as it is saved then do a 

"CAT 4" (see line 9000). This causes the files to be spaced on 
the wafer so as to load optimally, but it does rely on the wafer 
beina blank. For best results use GO TO 7950 which formats the 
wafer in drive A and saves the new version. Press BREAK when 
the process completes or any other key to repeat. 


9: ZERO CONTROL CODES 


Spectral Writer normally suppresses zero control characters. For 
some printers this means that things like underlining don't get 
turned off once initiated. Every printer I have come across 
ignores CHR$ Ø anyway so it would appear unnecessary. Version 
3. passes zero codes through to the printer when the graphics 


characters are processed. 
i 


10: INTERFACING WITH TASWORD II 


Spectral Writer and Tasword II files are in the same format and 
are interchangeable. The only point to note is that the two 
programs store their text at different locations. Thus, to load 
a Tasword file from cassette, exit to BASIC and enter LOAD 
""CODE 32768. Tasword and Spectral Writer text files on wafer 
can be interchanged freely when using version 5.0. Details of 
transferring Tasword II to Wafadrive are available from 
Rotronics. 


To upgrade your copy of the program follow this procedure: 

э 
1. Have available a blank 16K wafer which will eventually be 
formatted and have the new version saved to it. 


2. Load Spectral Writer in the normal manner, then exit to 
BASIC. 


5, Edit the BASIC program so that it appears exactly as per the 
listing shown. The changes are extensive so check carefully. 


4. Enter the following in direct mode: 


CLEAR 31585 (Reserves an additional 19 bytes for 
“paper pause" machine code) 


POKE 55773,285 POKE 55774,18 POKE 55775,125 
(Effects a call to the "paper pause" 
routine at the end of each page? 


POKE 56065,0 POKE 56056,0 
(Inhibits the suppression of zero control 
characters) 


POKE 31586,1965 POKE 51507,87 POKE 31508,218 
POKE 51509,62 РОКЕ 51510,0 POKE 31511,185 
POKE 31512,192 POKE 31513,255 POKE 51514,205 


POKE 31515,1 POKE 31514,174 POKE 31517,2535 

POKE 31518,205 РОКЕ 31519,1 POKE 51520,110 

POKE 31521,192 POKE 31522,24 POKE 31523,249 
(This is the "paper pause" routine) 


5. Insert the blank 16K wafer in drive A then enter GO TD 7950 
to duplicate the new version. It is also a good idea to make a 
backup of it onto another wafer by entering GO BUB 9000 (which 
makes a copy without formatting the wafer). 


Version 5.0 will overwrite any files of the same name when 
saving text. I find this more convenient then having to erase 
old versions of documents before I save the new ones. It is of 
course a bit more "risky" in that you could accidentally 
overwrite an important file. If you want to safeguard against 
this modify line 2000 to use SAVE * rather than SAVE #. 


Using standard 11" fanfold paper you will get 64 lines at the 
normal pitch of 6 lpi. My printer has a "perf skip" facility 
which leaves a 1" (6 line) gap between forms. I tend to leave 
this feature switched in as it is useful when printing listings 
etc. and thus I suppress Spectral Writer's pagination by setting 
the Form Feed code to zero. This leaves 60 lines per page ~ or 
58 if the page numbering facility is selected. A4 paper gives 
about 78 lines overall. 


Finally, a few words about graphics control codes. My own 
version is set up as followsi 


CHR$ CODE FUNCTION > 
143 U.K. Character set 

128 U.S. е " 

142 Enlarged printing ‘on’ 
129 " " ‘otf s 
141 Condensed "^ ‘on’ 
150 n a “оғ”. 
140 Underlining “оп” 

151 # 'off* 

139 Italics ‘on’ 

132 “ "of Ff’ 

158 Emphasised printing ‘on’ 
133 " " ‘off’ 
137 Enhanced 8 “оп” 
154 н " ‘off ° 
136 Elite printing ‘on’ 

12% " rr] ‘ott’ 


Copyright (c)1985 Graham Booth (ROTRONICS Ltd) 


1 REM (c) 1984 Gianluca Carri - VSN. 3.8 
10 POKE VAL "23658",NOT Рї: GO TO VAL "1109" 

100 IF s THEN CLEAR VAL "31505" 

105 PRINT АТ VAL “18",NOT PI;: LOAD "CODE 1"CODE : PRINT AT VAL 

"18",NOT РІ;: LOAD "CODE "CODE 

107 RANDOMIZE USR VAL "0055": RANDOMIZE USR VAL "51525" 

110 RANDOMIZE USR VAL "55545" 

120 LET wd=VAL "9520"; LET yn=VAL "52552": LET de=VAL "254": LE 
T x-PEEK VAL “S5496"+dc*#PEEK VAL "55497": LET peVaL "9800": LET 
Fn=VAL "9050": LET pr=VAL "8e3": LET defsVAL "7980": LET z=SGN P 
I: BRIGHT NOT PI 

121 LET a=PEEK VAL "23613"+de#PEEK VAL "23614": POKE a,INT РЇ: 
POKE a+SGN PI,VAL "19" 

150 LET c$-CHR$ USR VAL "51541": IF USR yn THEN GO TO VAL "130" 

140 INPUT "": IF ¢%>"9" THEN GO TO (CODE c$-VAL "55") #VAL "400" 

150 GO TO VAL c$*«VAL "400" 

400 CLS : LET a$-CHR$ VAL "2"+"COPY BLOCKS OF TEXT": GO SUB pr: 

LET a$-CHR$ VAL “S"°+"Beginning line? "з GO SUB pr: INPUT s: LET 

абса%%5ТН% s: GO SUB pr: LET a$*CHR$ VAL "7"+"Ending line? ": G 
O SUB pr: INPUT e: LET a$=a$+STR$ e: GO SUB pr: LET a$=CHRS VAL 
"9"+"New beginning line? "з GO SUB pr: INPUT n: LET a$sa$«*STR$ n 
і GO SUB pr: LET l=e-s+SGN PI: IF n*1»VAL "351" THEN LET a$=CHRS 

VAL "12"«"DUT OF FILE ERROR": GO TO VAL "455" 

410 LET 1=]#3А "654"; LET s=VAL "s#64+32768"1 LET nsVAL "n#64+3 
2768": IF п>в THEN GO TO VAL "449" 

420 LET s-s*1-SGN РІ: LET n=n+1-SGN PI: IF п<в-1 THEN RANDOMIZE 

l*n/(s/USR VAL "32551"): RUN 

450 LET a$-CHR$ VAL "12"*"DVERLAPPING ERROR" i 

435 GO SUB pr: FOR x=NOT PI TO VAL "100": NEXT х: RUN 

440 IF n&s*1 THEN GO TO VAL "4390" 

450 RANDOMIZE 1*n/(s/USR VAL "32526")s RUN 

BOO CLS : LET a$-CHR$ VAL "2"«"LOAD/MERGE TEXT FROM ТАРЕ": GO 5 
UB pr: LET z-NOT PI: GO SUB fn: IF NOT LEN #% THEN POKE VAL "232 
96",-SGN FI: GO TO VAL "820" 

810 FOR g=SGN PI ТО VAL "10"; IF g>LEN f$ THEN POKE VAL "25295" 
*g,VAL "Z2": NEXT о 

815 POKE VAL "23295"+g,CODE f$(g): NEXT g 

820 GO SUB VAL "7850": IF USR yn THEN RANDOMIZE USR VAL "32568" 
3 RUN : 

850 RANDOMIZE USR VAL "60063": LOAD f$CODE VAL "32768": RUN 
1200 CLS : LET a$-CHR$ VAL "2"+"SAVE TEXT ON TAPE": GO SUB pr: б 
O SUB fn: GO SUB VAL "9688": SAVE f$CODE st,lni GO SUB VAL "9510 
": IF NOT USR yn THEN VERIFY f$CODE в%,іп 
1210 RUN 
1500 CLS : LET a$=CHRS VAL “2"+"LOAD TEXT FROM WAFADRIVE": GO SU 
B pr: GO SUB wd: GO SUB fn: LET st=VAL "32768": GO SUB VAL "7859 
"; IF USR yn THEN LET st=st+VAL "564*(1*INT (x/64))"1 GO TD VAL " 
1620" 

1610 RANDOMIZE USR VAL "68063" 

1620 LOAD *d$-f$,.s5st: RUN 

2000 CLS : LET a$zCHR$ VAL "2"*"SAVE TEXT ON WAFADRIVE": GO SUB 
pr: GO SUB wd: GO SUB fn: GO SUB VAL "9500": SAVE #d$+f$,st,1n: 
GO SUB VAL "9510": IF NOT USR yn THEN VERIFY *d$4f$ 

2010 RUN 

2400 CLS : LET a$-CHR$ VAL "2"+"ERASE FILE ON WAFADRIVE": GO SUB 

pr: GO SUB wd: GO SUB fn: LET a$=CHRS VAL “7"+"Press a key to e 
rase the file": GO SUB pr: PAUSE NOT PI: ERASE #d$+f$: RUN 
2802 CLS : LET a$-CHR$ VAL "S"«"DIRECTORY OF WAFER": GO SUB рғ: 
GD SUB wd: PAUSE NOT PI: RUN 


6 


5200 CLS : LET a$-CHR$ VAL "2"+"PRINT OUT THE ТЕХТ": GO SUB рғ: 
LET n=VAL 5"; LET a$zs"Intaerface code": LET asVAL "55492"; GO SU 
B p: IF NOT vl THEN GO TD VAL "5240" 

5210 LET a$*CHR$ n-"Baud rate? ("*STR$ (VAL “PEEK 64460*dc«*PEEK 
64451")*"): ": GO SUB pr: GO SUB def: IF viedc THEN LET vi=VAL " 
PEEK 54460-*dc*PEEK 64461" 

5220 IF у1<МОТ PI OR v15VAL "9500" THEN GO TO VAL "3210" 

5250 POKE VAL "64460",vl<dc#INT (vl/dc)1: POKE VAL "64461",.INT (v 
l/dc): LET a$-a$«*STR$ vl: GO SUB pr: FORMAT ж%ғ",у1: LET n=n+SGN 
PI 

5240 LET a$-"Page numbering mode": LET a=VAL "55499"; GO SUB pi 
IF vl THEN LET аФ-"Мех% page number": LET a=VAL "55533": GO SUB 


p 

5250 LET at="Lines per page": LET a=VAL "55552": GO SUB p: LET а 

$="Left margin": LET asVAL "55495"; GO SUB p: LET a$«CHR$ n+”How 
many copies? (1);"; GO SUB pr: GO SUB deft IF viedc THEN LET vi 
=SGN PI 

5255 LET n=n+SG6N PI: LET a$sCHR$ n*"Pause for paper change? (y/n 
J): "; GO SUB pr: POKE VAL "31510",.USR yn 

5250 CLS : FOR a=SGN PI TO vl: RANDOMIZE USR VAL "55652": POKE V 

AL "SS601",NOT PI: РОКЕ VAL "55202" ,№МОТ PI: NEXT аз RUN 

5600 CLS : RANDOMIZE USR VAL "32355": IF USR yn THEN GO TO VAL “ 
5650" 

5610 PRINT AT VAL "17",NOT РІ)" э: LET a$=CHR$ V 

AL "17"-"Insert character code: “: GO SUB pr: INPUT ch: IF ch«VA 

L "128" OR ch>VAL "143" THEN GO TO VAL "3600" 

5620 LET a$-a$«STR4$ ch: GO SUB pr 

5650 INPUT "codel:";cl,"code2:";c2,"code3i";cS,"code4:";c4À: IF c 
1>=ас OR c2>=de DR c3»«*dc OR c4>mde OR c1<NOT PI OR c2<NOT PI OR 
cS<NOT РІ OR с4<МОТ FI THEN GO TO VAL "5230" 

5640 LET x=VAL "(ch-128)*4«-64558"1 POKE х,с1: POKE x+SGN PI,c21 

POKE x+VAL "2",с5: POKE x+INT PI,c4: GO TO VAL "3600" 

5650 CLS : LET n=SGN PI: LET a$="Carriage return": LET a=VAL "55 
495": GO SUB p: LET a$s"Linefeed": LET asVAL "55494": GO SUB p: 
LET a$-e"Formfeed": LET a=VAL "55498": GO SUB p: RUN 

4000 CLS : LET a$-CHR$ VAL "2"*"REDEFINE PARAMETERS": GO SUB рғ: 
LET n-VAL "5"; LET a$="Column at which the bell rings": LET ашу 

AL "55490": GO SUB p 

4010 LET at="Length of keyboard click": LET a=VAL "23609": GO SU 

В p: LET a$-"Delay before auto-repeat": LET asVAL "23561": GO SU 

B p: LET a$="Speed of auto-repeat": LET a=VAL "23562": GO SUB p 

4060 LET a$-CHR$ n*"Page header?": GO SUB pr: LET a$zCHR$ VAL "n 

#2": FOR a=SGN РІ TO VAL "32": LET a$=a$+CHRS PEEK (a*55499): NE 
XT a: GO SUB pr: INPUT LINE a$: IF NOT LEN a$ THEN RUN 

4070 IF LEN a$»VAL "32" THEN GO TO VAL "42860" 

4080 RANDOMIZE USR VAL "60089"; DIM n$(VAL "52"): LET п%жаф: FOR 
@=SGN FI TO VAL "32": POKE VAL "55499"-a,CODE n$(a): NEXT a: RU 

N 

4400 CLS : CLEAR : LET s=SGN PI: IF USR VAL "32692" THEN SAVE "- 
writer" LINE VAL "100": SAVE "CODE 1"CODE VAL "31525",VAL "1245" 
: SAVE "CODE "CODE VAL "SS5*60".VAL "10175": PRINT "REWIND TAPE & 
PRESS A KEY TO"'"UERIFY": PAUSE NOT РІ: VERIFY ""; VERIFY “"COD 

E : VERIFY ""CODE : RUN 

4410 GO SUB VAL "е5": RUN 

4800 POKE VAL "23658",.NOT PI: RANDOMIZE USR VAL "57623" 

5200 RANDOMIZE USR VAL "59275" i 

7850 CLS : LET a$-CHR$ VAL "2"+"Load (y) or Merge (п) ?": GO SUB 
pr: RETURN | 

7900 INPUT LINE b$: IF b$="" THEN LET мішісі RETURN 

7910 LET vl=VAL b$: RETURN 


z 


7950 FORMAT *"S/W:"4+STRS PEEK VAL "23672": GO SUB VAL "9e3": PAU 
БЕ NOT РІ: 50 TD VAL "7950" 

8000 RANDOMIZE ateSTRS USR VAL "55512": RETURN 

9000 CAT #: SAVE *"writer" LINE VAL "9999"; VERIFY *"writer": CA 
T #: SAVE x*'"code 1",VAL "31506",VAL "1252": VERIFY *"code 1": СА 
T 4: SAVE *"code",VAL "55360",VAL "10175": VERIFY *"code": RETUR 


9050 INFUT "Filename?", LINE f$: IF LEN f$»VAL "10" OR z AND NOT 
LEN f$ THEN GO TD VAL "9050" - 

9000 LET z=SGN PI: CLS : RETURN 

9490 LET a$=CHRS VAL "10"-"PARAMETER ERROR": GO SUB pr: FOR x=NO 

T PI TO VAL "100": NEXT x: RUN 

9510 CLS : LET a$zCHR$ VAL "3"+"Do you wish to verify (y/n)": GO 
SUB pr: RETURN 

9520 LET a$zCHR$ VAL "5"«"Which drive? (А/В) "1 GO SUB pr 

9522 LET d$*«INKEYS$: IF NOT LEN d$ THEN GO TO VAL "9522" 

9524 LET d$="b:" AND (d$="B" OR d$s"b")1 CAT #d$: RETURN 

9530 POKE VAL "2357687",NOT PIs RETURN 

9600 LET a$sCHR$ VAL “S"+"Do you wish to save the whole file? (y 
In)": GO SUB pr: IF NOT USR yn THEN LET st#VAL "32768": LET ln*x 
: GO TO VAL "9650" 

9510 CLS : LET a$=CHRS VAL "3"+"From line? "i GO SUB pr: INPUT в 
te LET a$-a$«STR$ st: GO SUB рғ: IF st>VAL "551" OR st<NOT PI TH 
ЕМ GO TU VAL "9496" 

9620 LET a$-CHR$ VAL "S"+"To line? ": GO SUB prs INPUT e: LET at 
=a$+STRS e: GO SUB pr: IF e<st OR e»VAL "351" THEN GO TO VAL "94 

9o" 

9620 LET In=VAL "(e-st-1)*64": LET stsVAL "st#64+327468" 

9650 CLS : LET aB=CHRS VAL "S"-"Saving """erf$*""" — sgtarti"*STR$ 
st+" - length:"«*STR$ Ins GO SUB pr: RETURN 

9800 LET a$-CHR$ nta$-"? ("«STR$ PEEK а+"): ": GO SUB pr 

9810 GO SUB defi IF vledc THEN LET vl=PEEK а 

9820 IF v1«NOT PI OR vi»VAL "255" THEN GO TO VAL "9810" 

9850 POKE a,vl: LET a%=a$+STR$S vl: GO SUB pr: LET өрттен РІ: RE 
TURN à 

9990 CLEAR VAL "31505": LOAD «"CODE 1": LOAD *"CODE": GO TO VAL 
"107" ; 

9998 INFUT LINE a$: RANDOMIZE a$zSTRS$ USR VAL "$8965" 

9999 CLS *: STOP | i 


CAMPBELL '5 MASTERFILE ON THE ROTRONICS WAFADRIVE 


These notes, and accompanying listings, are for the benefit of 
users of Campbell ‘= Masterfile program wishing to convert it for 
use on the ROTRONICS Wafadrive. 


The Wafadrive has no direct SAVE..DATA function, so the method 
used here saves the program and data together. The program is 
short so the speed penalty is minimal. The loader program shown 
allows you to select which file you require to begin with. A 
nice feature of this is that upon entering a null file name (by 
mast pressing ENTER), the last file accessed will be loaded. The 
conversion procedure is as follows: 


Format a fresh (16K) wafer and insert it in drive A. Type in the 
loader program and save it using: 


SAVE *"MF LOAD" LINE 1000: VERIFY Ж: CAT +» 


The VERIFY and CAT commands have the effect of positioning 
the tape to minimise loading time - don't omit them. 


Load in an "empty" version of Masterfile from cassette, just as 
you would normally. Do not reset the computer or type NEW 
first. Exit to BASIC (see MASTERFILE handbook), then modify the 
program as shown. The changes are extensive so check the results 
carefully. You can start from fresh but you must restore 
MASTERFILE's reserved variables. When done, execute: 

SAVE *"MF" LINE 1: VERIFY #°MF"s CAT * 

SAVE ж"МЕ MCODE*",57328,8207: VERIFY "MF MCODE" 


Never RUN/CLEAR the BASIC program - otherwise all your data 
will be lost. 14 the program stops with an error report ("wafer 
not inserted" etc.), restart by entering BD TO 1. Do this now 
and save the new version of the program onto your back-up wafer 
(option V from the MASTERFILE main menu), 


You will be able to load your old cassette files using LOAD an 
DATA #%() as per usual. They can then be saved onto the 
Wafadrive from your new version of the MASTERFILE program. 14 
you have MF PRINT, this too can be loaded іп from cassette. Once 
loaded it remains imbedded in the Masterfile program. 


MASTERFILE normally interfaces with printers via the СОРҮ 
command. If you plan to use a full-size printer with the > 
Wafadrive's Centronics or RS-232 ports, you will need some 
software to simulate COPY. Such routines are available for 
EPSON compatible printers (contact ROTRONICS for details). 


Finally, these notes are given for guidance only and refer to 
version O9 of Masterfile. The changes required for version оз 
аге also shown and I am indebted to Mr. C. Hurst of Maidenhead 
for this information. I would be pleased to hear from anyone 
else who has any further suggestions or comments. 


G.P, BOOTH - TECHNICAL DIRECTOR, ROTRONICS LTD. Мау 1985 


19 REM MASTERFILE LOADER 

2а PRINT АТ 3,5; "CAMPSELL 'S MASTERF ILE"; AT 5,7" (Wafadrivme ve 
rsion)" { 

50 PRINT 49;"Drive from which file ia to be loaded (A/9):" 

40 LET d$-INKEYS$: IF d s="" THEN GO TO 49 

50 LET d$="b;” AND (d$="B° OR ds="h"): CAT *d$ 

68 POKE 25558,8: DIM п% (10): INPUT “File name?", LINE п% 


108 REM SEARCH FOR FILE 

110 LET а=24910+582% (d$=“b:") 

120 FOR х=] TO PEEK (a-22):.LET m$«"" 

150 FOR yad TD 9: LET m$=m$+CHRS PEEK (a*y)s NEXT у 

140 IF m$=n¢ THEN GO TO 200 = 

150 LET a=ati2+PEEK (a*11): NEXT x : 

168 IF n$«4»5" ” THEN PRINT 42;"FILE NOT FOUND": PAUSE 9 
z BO TO ёё à 

200 LOAD #d$+ms 
218 PRINT #8; FLASH 1; “ERROR — WRONG FILE TYPE“; PAUSE 9: STOP 
1000 CLEAR 57527: CLS +: LOAD #"mf асобе": PDKE 45555,24: RUN 


Masterfile BASIC program: 


1 PRINT 3: PAPER VAL "74: GO TO USR VAL "58285" 
2 LOAD *"mfp util" 
3 LOAD #“afp ovly“s GO TO SGN РІ 
4 LOAD *"mf mcode"; GO TO SGN PI 
5 SAVE ж"т% mcode",.VAL "57328",VAL "8207"; GO TO SGN РІ 
SØ PRINT AT VAL "15",VAL "2";"Cassette(c) or W/drive(a/b)" 
68 POKE VAL "25558" „МОТ PI: LET dS=INKEYS: IF d$C"a" DR ds>"c* 
THEN GO TO VAL *&2" 
55 LET d»NOT d$»"c*: LET d$sd$«";": BEEP VAL ".1",NOT PIr IF d 
THEN CAT *d$ 
66 RETURN 
70 PRINT AT VAL "17",VAL "2"; "Verify ? Y/N" 
75 IF INKEYS&"Y" DR INKEYS="y“ THEN BEEP VAL ".1",NOT PI: PRIN 
T AT VAL “17",VAL "B", BRIGHT SGN PlI;"ing..."'': GO TO VAL "970" 
80 IF INKEY$="N" OR INKEY$«"n* THEN 1 RETURN 
85 GO TD VAL "75" 
92 IF d THEN VERIFY *€d$«n$1 GO TD USR r 
95 VERIFY n$: GO TO USR г 
4000 INPUT PAPER VAL +7": (с%( TO VAL “S2"))3 LINE c$: GO TO USR 
r ^ 
4810 СОРУ; GO TO LSR r 
4020 LET п%=с%( TO VAL 410"): GO SUB VAL “507% IF NOT d THEN SAV 
Е n$ LINE SGN PI; GO SUB VAL "70": GO TO USR r 
4025 SAVE «d$4n$ LINE SGN PI: GO TO USR r 
4030 CLS *; PRINT "PROGRAM SACK-UP"''"Ensure master wafer in A, 
blank in 8B — then press а key."'': PAUSE NOT PI: MOVE #"aimt loa 
d" TO "bs": SAVE #"bimt" LINE SGN PI: SAVE #"brat meode",VAL "57 
328”,VAL "B207": GO TO USR r ; 
4040 LET c$x5TR$ (VAL c$( TO VAL "14")/VAL c$(VAL "15" TO VAL "1 
9"))1 GO TO USR r > 
4050 LET n$»c$( TO VAL "10"): GO SUB VAL "508": IF d THEN LDAD «d 
$*n$: GO TO USR r 
4055 PRINT '"Play the tapw..."1 LOAD ns: GO TO USR r 
4280 PRINT AT VAL "13",NOT PI; BRIGHT BGN PI; PAPER VAL “6°: "Giv 
в name of print spec to load": INPUT n$: IF n$«"" THEN GO TD SGN 


4202 PRINT '"Play the tape...": LOAD n$ DATA p$Os BO TO USR r 
4210 REM See MFP User Guide 

4290 CLOSE ##1МТ PI: GO TO USR r 

7000 LET с%="”: GO TO USR r 0 

9000 BEEP SGN РІ,МОТ PI: GO TO USR r 


Modifications for version 88: 


1 PRINT рз PAPER VAL "7": GO TD USR VAL "649351" 

5 SAVE *"mf mcode",VAL "57037".VAL "8499"3 GO TO SGN РІ 
4030 CLS ¥: PRINT "PROGRAM BACK-UP"''"Ensure master wafer in A, 
blank in В ~ then press a кеу." ‘г: PAUSE МОТ PI: MOVE »"aimfload 
" TO "b:'"; SAVE $"bimf" LINE SGN PI: SAVE 9"bimf acode",VAL "370 
37“,VAL "8499": БО TO USR r 


TASWORD II ON WAFADRIVE 


Although the Wafadrive is normally supplied with an excellent 
Word Processor program (Spsctral Writer), there are people who 
already own Tasword II and who wish to transfer it to wafer. 


This is understandable - it takes some time to become familiar 
with a complex program such as a word processor and once 
experience is gained, many people are reluctant to start again 
with another program. Also, Tasword does have some features 


which Spectral Writer lacks (although the opposite is also 
true). 


It should be noted however that Spectral Writer and Tasword text 
files are interchangeable - albeit with a small modification to 
Spectral Writer BASIC. (For those who are interested, amend the 
statement LOAD «f$ in line 1680 to LOAD *f$,.VAL 32768). 


The fundamental problem with Tasword is that the extra RAM 
reserved by the Wafadrive causes there to be insufficient room 
below RAMTOP for the BASIC. There are two solutions! the 
"official" TASMAN solution, (detaíls of which can be obtained by 
writing to them), involves raising RAMTOP and reducing the 
program's text capacity by 24 lines. 


Tasword's BASIC portion is particularly space-inefficient and 

a better solution is to condense it so that it will fit into the 
reduced space available. The oniy real problem with this is that 
the whole program must be editted through. However, it is well 
worth the hour or so's effort. 


So, to convert Tasword start by loading the program from 
cassette in the normal way with the Wafadrive connected but not 
initialised. Exit to BASIC and go through every line of the 
program such that the final result appears exactly as per the 
listing below. Do not make any other changes at this stage. One 
small point - there should be a copyright symbol immediately 
before the word "Tasman" in line 4800. Since this is à non-ASCII 
character, most printers will not reproduce it. 


When finished, you should find that you are able to enter NEW * 
to initialise the Wafadrive. Do so and save the BASIC on a 
spare wafer. Now you can run the program and test it. If all 
appears well use Tasword's backup option to save the new version 
onto a blank 16K wafer. 


As shown the program provides for a printer connected via the 
Wafadrive's Centronics port. If you have an RS-232 printer, 
change the "c" in line 15's OPEN # statement to "r". You will 
also need to add a FORMAT statement after it if the baud rate 
is anything other than 1200. 


Your old cassette files can be loaded by temporarily altering 
line 2010 back to cassette load syntax. 


For those people not familiar with memory-saving techniques on 
the Spectrum it may seem strange to replace a "straight" number 
with its string equivalent and use VAL. However, because of 

the way the Spectrum stores numbers 3 bytes are saved every’ time 
this is done. Using things like NOT РІ (0), SGN PI (1) and 

INT PI (Z) saves 5 bytes every time. The savings may seem small 
but these and other techniques lop over 1.5K from the original 
version of the program. (In fact, by re-writing the BASIC 
completely it can be reduced even further but the result was 
considered too radically different to present here). The only 
penalty of the changes is that the functions carried out by 
Tasword's BASIC become marginally more sluggish in operation. In 
practise this is a minor irritation. 


TASWORD BASIC LISTING (WAFADRIVE VERSION): \ 


10 CLS : LET a#USR VAL "64550": GO TO VAL "29" 

15 POKE VAL "23609",VAL "2": CLEAR VAL "31999"; 60 SUB VAL "4e 
3": LOAD *"tascode": RANDOMIZE USR VAL "59081": OPEN ##INT РІ, "с 
“з GO TO VAL "10" ; 

20 CLS : LET a=VAL "54*INT (a/64*.99)": IF NOT a THEN GO TO УА 
L "Ses" 


25 GO SUB VAL “4e3"1 PRINT "drive directory | d" 
26 PRINT '"print text file р" 

28 PRINT '"save text file s" 

50 PRINT '"1oad text file j" 

55 PRINT '"mergae text file m" 

40 PRINT '"return to text file y" 

45 PRINT '"define graphics/printer g" > 

50 PRINT '"save tasword t" 

55 PRINT ‘“into Basic b" 

&0 PRINT '"erase file e" 


70 INPUT "": PRINT #NOT PI;AT SGN PI,VAL "10"; INVERSE SGN РІ; 
"press key": GO SUB VAL "8200" 
20 LET at=INKEY$: IF NOT LEN a$ THEN GO TO VAL "BO" 
90 LET i=NOT PI: LET b=CODE a$: LET b=eb+VAL "3S2"#(b<VAL "97") 
110 IF beVAL "115" THEN LET i=VAL "6" 
120 IF bsVAL "105" THEN LET i=VAL "8" 
125 IF bwVAL "116" THEN LET i=VAL "16" 
130 IF b=VAL "112" THEN LET i«eVAL "4" 
140 IF beVAL "121" THEN LET i-VAL "12" 
150 IF beVAL "109" THEN LET isVAL "19" 
160 IF bsVAL "103" THEN LET i=VAL "14" 
170 IF b=VAL "98" THEN LET i«€VAL "18" 
175 IF bsVAL "100" THEN LET is»VAaL "2" 
178 IF bsVAL "101" THEN LET i=VAL "20" 
{BD IF i THEN PRINT AT 1,VAL "51"; FLASH SGN PI;CHRS bj: GO YO 
VAL "500" 
190 GO TO VAL "BO" 
200 CLS : PRINT АТ VAL "4" , VAL "B","PRINT OPTIONS"'" just pres 
s ENTER for default values given in brackets" 
210 LET і=УА "В": LET jOsVAL "2543 PRINT AT і,МОТ PI;"Line spa 
cing? (194: GO SUB VAL "ёе": IF NOT LEN a$ THEN LET a$="]" 
215 POKE VAL "62235",VAL a$ 
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220 LET i=VAL "10": PRINT AT 1,NOT PI;"Start at line? (1)"s GO 
SUB VAL "без"; IF МОТ LEN a$ THEN LET a$-"1" 

250 LET c=VAL "64*(INT VAL a$-1)"1: LET Ь=с+ЕМ p (VAL "62216")1: L 
ЕТ x=VAL "60945"; GO SUB VAL "950" 

240 LET i=VAL "12": PRINT AT 1,NOT PIp"Finish at line? (1ast)"i: 

GO SUB VAL "без": IF NOT LEN a$ THEN LET bea-cs GO TO VAL "250" 

245 LET b=VAL "64#INT VAL a$-c" 

250 RANDOMIZE USR VAL "59806": RANDOMIZE USR FN p(VAL "52472") 

252 LET i=VAL "14"; LET j=NOT PIs LET a$s"Left hand margin s "; 

LET x=VAL "60927": GO SUB VAL "850" 

255 LET i=VAL "16": PRINT AT 1,NOT PI; "Number of copies (i)": 5 
D БОВ VAL "Феб": IF NOT LEN a$ THEN LET абш”1" 

256 LET j=VAL a$ 

260 CLS : PRINT AT VAL "20",NOT PI;"Press the q key to quit pri 
nting" 

270 LET x=VAL "60049": GO SUB VAL "9590" 

275 LET c=PEEK VAL "62470": IF c THEN LPRINT CHR$ c 

280 RANDOMIZE USR VAL "20058" 

285 LET cePEEK VAL "52471": IF c THEN LPRINT CHR$ c 

290 RANDOMIZE USR VAL "59896"; GO TO VAL "1g" 

580 CLS : PRINT "Printer control graphics charsi" 

505 LET b=VAL "4"; FOR i=NOT PI TO VAL "15": LET b»ABS (b-VAL " 
4"): PRINT AT 1+VAL "4",bşi+VAL "128";CHR$ (i-VAL "128") 

507 FOR j=NOT PI TO INT PI: LET с=РЕЕК VAL "60860-*i*4-j": LET a 
ФЕБТАФ c: IF caVAL "255" THEN LET ава"" 

508 PRINT AT i+VAL "4" VAL “10%4%)"%а%: NEXT j: NEXT i 

520 INPUT "Type graphics character code 128-143 ENTER if finis 
hed): "s; LINE аб 

525 IF NOT LEN a$ THEN GO TO VAL "4gQ" 

540 LET b=VAL a$: IF b«VAL "128" OR b»VAL "145" THEN GO TO VAL 
n S2U " 

550 PRINT AT VAL "21",INT PI; FLASH SGN PIş$b;: PRINT " "4CHR$ b 

555 FOR j=NOT PI TO INT PI: РОКЕ VAL "60348*bw4« j" ,VAL. "255": N 
EXT j 

560 FOR jeNOT PI TO INT PI: INPUT "Code? (ENTER if finished): " 
3 LINE a$: IF NOT LEN a$ THEN GO TO VAL "320" i 

570 РОКЕ VAL "60348+b#4+j",VAL at: PRINT AT VAL "21" VAL "10%4% 
j"; VAL a$: NEXT Jı GO TO VAL "300" . 

400 CLS : PRINT AT INT PI,NOT PI; "Reset interface/printer codes 
7": LET i-VAL "5"; OD SUB VAL "920": CLS : IF NOT i THEN GO TO V 
AL tt 25 " 

401 PRINT AT INT PI,NOT PI;"just ENTER to keep values given:" 

405 LET jQ@=VAL "27"; LET i*-VAL "8": LET ізМОТ РІ: LET a$="Inter 
face control codeis"; LET x=VAL "60924": GD SUB VAL "859" 

404 LET ieVAL "9"; LET jeVAL "18": LET a$*"code2s": LET x»VAL " 
62470": GU SUB VAL "850" 

405 LET ieVAL "10"; LET jeVAL "18"; LET a$s"code3»s": LET x=VAL 
"62471": GO SUB VAL "850" 

405 LET izVAL "11"; PRINT AT 1,VAL "18"; "code4=";FN p(VAL "5247 
2"): LET isVAL "12") LET jO»VAL "24": GO SUB VAL "ómS": LET ja=Vv 
AL "27": IF LEN a$ THEN LET bsVAÓL аф: LET x»VAL "2472": GD SUB 
VAL "950" 

410 LET i=VAL "14"; LET j*NOT PI: LET a$=“Printer carriage retu 
rne": LET x=VAL "60925": GO SUB VAL "859" 

420 LET i*VAL "16" LET j*NOT PI: LET a$z"Printer linsfesde"; L 
ET x®VAL "60925": GO SUB VAL "859" 

450 LET i-VAL "18"; LET j=NOT PI: LET a$«"Left margin on printi 
ng=": LET x=VAL "59927": GO SUB VAL "850" 

490 GO TO VAL "29g" 

500 INPUT “"s PRINT #NOT PI;" press the "; FLASH SGN РІ; "ENTER" 
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; FLASH NOT PI1;" key to procsed"'" press "j FLASH SGN PI;"c"; F 
LASH NOT PI;" to change the choice " 
510 LET a$-2INKEY$: IF a$-"c" OR a$="C" THEN GD TO VAL "20" 
520 IF CODE a$-VAL "13" THEN, GO ТО VAL "680" 
530 GO TO VAL "S10" 
500 IF b=VAL "116" THEN GO TO VAL "700" 
610 IF Ь=УА "121" THEN CLS 1 GO TO VAL "10" 
620 IF bsVAL "115" THEN CLS ; 60 TO VAL "les" 
630 IF beVAL "109" THEN GO TO VAL "2e3" 
640 IF bsVAL "105" THEN LET asUSR VAL "59081": LET a=NOT PI: GO 
TO VAL "2e3" 
650 IF bsVAL "112" THEN GO ТО VAL "200" 
660 IF b=VAL "105" THEN GO TO VAL "300" 
670 IF b=VAL "100" THEN GO TO VAL "Ses" 
680 IF beVAL "101" THEN GO TO VAL "1500" 
699 CLS : STOP 
700 CLS : PRINT "SAVE TASWORD"''': POKE VAL "25770",М0Т PI: CAT 
8"ar": SAVE #"tasword” LINE VAL "15": VERIFY *"ta&word"t CAT #: 
SAVE W"tascode",VAL "54784",VAL "10751": POKE VAL "23767",NOT P 
I: CLS : GO TO VAL "25" 
850 PRINT АТ і,іҙабіРЕЕК x: GO SUB VAL "e3": IF LEN a$ THEN PO 
KE x,VAL a$ 
860 RETURN 
9*0 LET i=INKEY$e"y" OR INKEYS$»"Y"; IF INKEY$s"n" OR INKEY$="N" 
OR i THEN RETURN 
940 GO TO VAL "930" 
950 POKE x,b-VAL "2S56*INT (b/256)": POKE x+SGN PI INT (b/VAL "2 
S6"): RETURN 
1000 CLS : PRINT "SAVE TEXT FILE" 
1010 LET b=FN p(VAL "6221643: GO SUB VAL "Bes": GO SUB VAL "8100 
."3 SAVE #a%,b,a: GO TO VAL "20" 
1500 CLS : PRINT "ERASE FILE" 
1510 GO SUB VAL "8ә5!: GO SUB VAL "8100": ERASE *af$i GO An VAL " 
20" 
2000 CLS : PRINT "LOAD/MERGE TEXT FILE" 
2010 LET bsFN p(VAL "62216"): LET beatb: GO SUB VAL "Bas": GO SU 
B VAL "8100": LOAD *a$,b: GO TO VAL "10". 
3900 FOR ieVAL "23296" TO VAL "23361": POKE 4 ,VAL "72": NEXT і 
5005 POKE VAL "23362",NOT РІ . 
5010 PRINT AT VAL "B",NOT РІ) "журе word to be replaced / found" 
5012 LET jO=NOT PI: LET i«VAL "10": GO SUB VAL "4өзез IF NOT LEN 
a$ THEN GO TO VAL "10" А 
5020 LET j=NOT PI: FOR i=SGN PI TO LEN аб: POKE VAL "23297"+i ,CO 
DE а%(1); IF а%(1)=" " THEN LET j=j+SGN PI 
5021 NEXT i 
5022 IF j THEN CLS 1 PRINT AT VAL "12",NOT PI;"just a word ~ no 
spaces allowed"; GO TO VAL "Зву" 
5225 POKE VAL "25297" ,_ЕМ a$ 
5050 PRINT AT VAL "12" „МОТ PI;"with (just ENTER for find only)": 
LET i=VAL "14": GO SUB VAL "без" 
5040 IF NOT LEN a$ THEN POKE VAL “23362",SGN PIs GO TO VAL “5060 
" 


5050 FOR i=SGN PI TO LEN a$: POKE VAL "2X329"44,.CODE a$(1)1 NEXT 
5050 LET a=USR VAL "64955": LET a=USR VAL “"24555%і GO TO VAL "20 
4000 PRINT "TASWORD 2 Tasman Software 198:5"*'3í RETURN 

5000 CLS : PRINT "DRIVE DIRECTORY": GO SUB VAL "BeS": PRINT #NOT 


PI;"Press a key to continue.."3 PAUSE NOT PI: GO TO VAL "28" 
5000 LET аф="": PRINT AT 1,30; FLASH SGN PI;" " 


8010 LET j*«jO: IF LEN INKEY$ THEN GO TO VAL "6910" 

6020 LET bS=INKEYS 

6030 IF NOT LEN b$ THEN GO TO VAL "6020" 

5040 IF CODE bS=VAL "13$" THEN PRINT АТ 1,1)" "s RETURN 

050 IF CODE b$«»VAL "12" THEN GO TO VAL "6170" 

6060 IF 330 THEN GO TO VAL "6200" 

5070 LET j=j-SGN PI: PRINT AT 1,3; FLASH SGN РІ" "j1 PRINT " "j 
LET а$=а%( TO 3-10): GO TO VAL "2200" 

6170 IF CODE b$«VAL "32" DR CODE bS>VAL "127" THEN GO TO VAL "62 

go" 

6180 BEEP VAL ".O05",VAL "5": PRINT АТ i,j4;b$4 FLASH SGN PI;" "t: 
LET j=j+SGN РІ: LET a$9»a$*b$ 

6190 IF j=VAL "32" THEN PRINT АТ i+SGN PI,NOT РІ" "3 RETURN 

6200 IF LEN INKEY$ THEN GO TO VAL "6200" i 

6210 GO TO VAL “6023" 

7000 DEF FN p(x) PEEK x*VAL "256%РЕЕК (х+1) “ 

8000 PRINT #NOT PI; "Which drive (a/b)i" 

8225 GO SUB VAL "B20D" 

8210 LET d$=INKEY$: IF NOT LEN d$ THEN GO TO VAL "8010" 

8020 LET d$2"b:" AND (d$="B" DR d$s"b"): САТ *d$: RETURN 

8100 POKE VAL "23658",VAL "8": INPUT "Enter file mame: "3; LINE a 
$: IF NOT LEN a$ OR LEN аФ>УА "10" THEN GO TO VAL "81020" 

8110 LET аў=б%+а%: POKE VAL “23658",NOT PI: RETURN 

8200 IF LEN ІМКЕҮФ THEN GO TO VAL "8200" 

8210 RETURN 


MUNSF ILE ғ: VU-—CALC ON WAFADRIVE 


Psion's VU-FILE and VU-CALC programs are two of the most widely 
used Spectrum utility programs. Unfortunately, since their 
machine code portions locate low down in memory (at around 
address 25000), they are not easy to transfer to wafer (BASIC 
starts at around 260900 when the Wafadrive is initialised). Both 
programs require BASIC to be left intact as many of their 
functions are carried out from BASIC. 


VU-FILE and VU-CALC are interfaced to the Wafadrive by means of 
a machine code "wedge" program. Although the programs are 
different in each case, the method is the same and is described 
below. No knowledge of machine code is necessary but make sure 
that the steps are followed exactly: 


1. Have ready a (blank) 16K wafer for the final version of the 
program and another wafer which has at least 12K of spare 
capacity. These will henceforth be referred to as the "program" 
and "working" wafers respectively. 


2. Starting with the computer reset, initialise the Wafadrive 
and then enter the appropriate loader program listed on one of 
the accompanying sheets. Check it carefully and don't be tempted 
to make any of your own "improvgments" at this stage. 


S. With the Wafadrive initialised, and with the working wafer in 
drive A, save the loader: SAVE “nama” LINE Зеу, where "name" 
is "vu file” or "vu calc” as appropriate. 


4. Enter NEW # to clear out this first program and then type 

in the relevant "converter" program. These are longer so you 
will have to be more careful with your checking. Take particular 
care with the numbers in the DATA statements. Save the 

program: SAVE *"convert". The DATA statements can be checked 

by entering GD SUB 8e3 in direct mode. If you have made a 
mistake the program will tell you which line is faulty. 


5. Now you can RUN the converter program. The first thing you 
will be asked to do is to play the program cassette. You can cue 
the tape up to the beginning of the code file if you like ("C" 
or "t") - this is the only file that the converter programs use. 
\ 
6. Once loaded the converter program adds the machine code 
interface program, splits the program code into two sections and 
saves them onto the working wafer, It also then saves a copy of 
itself just in case you forgot to do so. 


7. When this has been done a few instructions will be displayed 
then the program will be loaded from the working wafer and run. 


B. Now make a "proper" copy of the program onto the program 
wafer - don't use the version on the working wafer but keep ít 
as a backup. Exit to BASIC (in the case of VU-FILE this can be 
done by selecting "load" and removing both wafers to generate an 
error), insert the program wafer in drive A and enter GO TO 
9999, The wafer will be formatted and the final version of 


VU-FILE/VU-CALC saved to it. 


Other copies can be made at any 
time using this method. 


To use the wafer versions of VU-FILE/VU-CALC simply insert the 
wafer in drive А and enter LOAD є. The screen display has been 
dropped - it only adds to loading time and would not stay on the 
screen for very long anyway. You can add it if you like though. 


I hope you will agree that the load and save options in the new 
versions of the programs are pleasant to use. You can use the 
same techniques in your own programs. Note that in both cases 
the directory can be examined by selecting the "load" option and 
entering a null file name to effect a return to the program. 


The VU-FILE BASIC loader is written assuming a Centronics 
printer is to be used. If you have a "ZX" type printer, omit the 
OPEN # statement in line 8008, If you have an RS-232 printer 
replace it with OPEN 4*INT PI,"r" and set the baud rate if 
required - eg. by following ít with FORMAT #"r" VAL "9680". 
VU-CALC performs its printing via COPY and without further 
modification can only be used with a "ZX" type printer. Do not 
press the BREAK key whilst VU-CALC is printing. 


In the BASIC loaders you will notice the use of VAL to 
represent all numbers, and expressions containing numbers, and 
things like NOT PI (to represent 0), SGN PI (1) and INT PI 

(3). In case you are not aware, these are memory saving devices 
(VAL "9500" saves 3 bytes and INT PI saves 5). 


The VERIFY and CAT % statements in line 9999 cause the files 
on the wafer to be recorded on the tape such that loading^time 
is minimized - again you can use this technique yourself. 


1f you crash either of the programs and get a BASIC error 
message simply use RUN to restart them. GO TO 9080 can still 
be used with VU-CALC to get a report of the faulty cell. 


Cassette files can be loaded by modifying the LOAD # commands 
in line 2000 (VU-FILE)/1000 (VU-CALC). Change them back to the 
cassette syntax and drop the GO SUB call. The files can then 
be loaded from tape and saved to wafer - try this with the 
example files supplied on the program cassettes. 


The conversion to wafer does mean that there is less room for 
your files in memory but this should not be a problem as the 
capacity is still generous. Loading very large files from 
cassette could crash the programs so be careful. 


Finally, the VU-FILE and VU-CALC programs arg copyright and any 
copying must be in accordance with the appropriate laws. Please 
do not ask ROTRONICS to convert programs for you - we cannot do 
ьо. We cannot make any guarantees as to the success of the 
conversions and there may be more than one version of the 


programs to trap the unwary. We do welcome any comments or 
suggestions you may care to make. 


COFYRIGHT (c) 1985 Graham Booth (RDTRONICS Ltd) 


VU-FILE LOADER PROGRAM: 


100 GO SUB VAL "7е5": GO TO USR a | 

71000 CLS : PRINT “Save a file": GO SUB VAL "6e3": GO TO USR a 
1010 SAVE 8g$,5,1: GO TO USR a 

2000 CLS : PRINT "Load a file": GO SUB VAL "без": LOAD *9g$,*9: GO 
TO USR a А 

5000 LPRINT f$: TO VAL "32")3 GD TO USR a 

000 PRINT «NOT PIs "Which drive? (A/B): " 

6010 LET d$-21NKEYS$: IF NOT SEN d$ THEN GO TO VAL "6010" 

6020 LET d$="b:" AND (d$="B" OR d$e"b"o): CAT *d$: INPUT "Enter f 
ile name: "; LINE g$: IF NOT LEN g$ THEN RUN 

5050 LET f$( TO VAL "190") =0%: LET s*VAL "CODE €$(11)}4+256"CODE f$ 
(12)"; LET 1=VAL "CODE £$(13)+2568CODE f$(14)"1 LET 9%=0%+0%: RE 

TURN 

7000 DIM f$(VAL "32")3 LET a@VAL "65078": RETURN 

8000 POKE VAL "23732",VAL "95": POKE VAL "23755" , VAL "245": CLEA 

R VAL "27379": LOAD *"vu codel”, VAL "63070": LOAD *"vu code2",VA 

L "27580": OPEN ##INT PI,"“c"s BORDER SGN PI: GO SUB VAL "7e3": б 

D TO USR VAL "43078" = 

9999 FORMAT *"aiVUFILE."4STRS$ PEEK VAL "25672": САТ #"аг": SAVE 

*"vu file" LINE VAL "SeS3"2 VERIFY жз САТ #: SAVE *"vu codel",VAL 
"63070",VAL "2462"1 VERIFY *"vu codel”: CAT ӘБ SAVE #"vu code2" 
„VAL "27380" ,VAL "5550": CAT ж 


VU-FILE CONVERTER PROGRAM: 


10.REM  VU-FILE Converter 
200 CLEAR 494: GO SUB 8e3: PRINT "Rewind the VU-FILE tape, and 
start the recorder ready to loadin the code file:": GO SUB 7e 
3: LOAD "C"CODE Se4 
500 CLS : PRINT "Ensure that the working wafer isin drive A rea 
dy to accept the code files:": GO SUB 7e5 
210 SAVE #"а: уц codel",49830,24621 SAVE W"arvu code2",52292,535 
Q: SAVE #"“a: convert" : 


400 CLS : PRINT “When this program has finished, VU-FILE will 1 


oad and run — provided all is correct that is."''"Exit to BA 
SIC, remove your working wafer and insert a 16K wafer in d 
rive A ready to be formatted and have VU-FILE savedon it."''" 


When you are sure all is correctenter GO TO 9999 to save the new 
version of VU-FILE.": GO SUB 783 

410 LOAD #*"asvu file": STOP 
7000 REM Press a key 
7010 INPUT ""; PRINT #0;"Press a key when ready..."3 PAUSE e: CL 
S : RETURN 
8222 REM POKE DATA 
5010 DATA "205", "108" "245" "205", "25","116", "24", "6", "285", "188 
"eo" 246" "205", "BO" "116", "197", "62", "2163" 
5020 DATA “ә” š "205" $ n 184" А n24065" , "205" " "202" " “24% А "5.” ` "182" $ "ngo 
" А “ 126" А 24" А "167" 4 "ҳо" А "257, 4229" А "24257" 
BOID DATA „205% 4 " 197" А "246", "225", "“ 1 n А "244" " "в" А n205" в "2х2" А nose 
"17", 9255", "97", "213", "205", "214" "2589" 

5040 DATA "246" " "209" á "jgu i "205" % "192" $ "2446" à "2да " н27” " "з" қ "ng қ 
"98" " 205” А и 197" А "246" . и 17" 4 "245" в "2207" 

ар5о DATA "196", "205", "214", "246", "$5","181","92","1","244" , "B", 
"229" Я "205" " нде» ч wap К "209" f "19" " "2099" 

5050 DATA "ops ; a 492" ; .24%" ۹ "62" А 7375" А "205" 1 » 184" 8 һ24&" 4 tt 193" А no 
Q1" ; EE "141" " "ngon ‘ "119" š "205" 9 "175" Р "2514" 

2070 DATA "15", "201", "TI", "OD", MOS" "24", "I1", "17", "8B", "247" ,"24" 
z "A" - oz Е "on А н247 ا‎ сі "37" NE Ls 


4 


8080 DATA "Q","654" "1","244", "g*,"237*,"»175", 201", "257" , "85", "1 
78" " "92" ; "227" š "115" ы ag» i "247" x "2120" 

8090 DATA "237" "Jm" "OD", "247", "42", "A1" O92" "IS", "229", "1 BS", " 
237","56" ,"658" "77" "3$" ,"2355","1B887" 

S100 DATA "54" ,"62" "235" ,"27","27","27" "257" , "BS", "53", "92","1 
9” Я 1925" y ЖЕТ" % н 184" А 1% " “235% в "1824" 

8110 DATA "249", "201", "0", "0", "0", "0", "0", "р", "0", "0", "0", "р", "р 
"24,00", "450" 

8200 PRINT "Wait a while..." 

8300 RESTORE 8в5: LET а=49850: FOR т=1 TO 11: LET s=@: FOR n=1 T 
O 16: READ a$: LET s=s+VAL аф; POKE a,VAL аб: LET aw-a*i: NEXT n: 


READ a$: IF VAL a$<>s THEN PRINT "CHECKSUM ERROR IN LINE "j8es3-* 
104m: STOP 


8510 NEXT m: CLS 1 RETURN 


VU-CALC LOADER PROGRAM: 


19 GO TD USR VAL "63058" 
1000 GO SUB VAL “Se3"1 LOAD *a$: RUN 


3000 GO SUB VAL "7e3": PRINT AT VAL "9",VAL "2"j"ENTER 1: EXIT 
PROGRAM"''TAB VAL "9","2 s CLEAR WORKSHEET"''TAB VAL «Qg'y"$ 2 R 

ETURN TO VU-CALC": INPUT "OPTION? "фа: GO TO VAL "Ses-100*a*(a»D 
AND a<4) " 

*100 GO SUB VAL "7e3": STOP 

4200 CLEAR : DIM b$(VAL "109"): DIM c$(VAL "20"): GO TO USR VAL 
"6050" 

5500 RUN 

4002 GO SUB VAL "ёе5": SAVE *a$,VAL "50457" ‚ЧА “PEEK 30466*256* 

PEEK 30467-30457": RUN i 

5000 LET c$-STR$ VAL 59: GO TO USR VAL "65066" 

6000 INPUT "": PRINT #NOT PIg"Which drive (0/3): " 

6010 LET d$-INKEY$: IF NOT LEN d$ THEN GO TO VAL "6010" i 
5020 LET d$=”b:" AND (d$e"B" OR d$="b"); CAT *d$: INPUT "Enter f 
ile name: "; LINE афі IF NOT LEN a$ THEN RUN 

5050 LET a$-d$*a$: RETURN . 

7202 CLS : PRINT TAB VAL "13";"VU-CALC": RETURN 

8002 BORDER SGN PI: POKE VAL "23732",VAL "73": POKE VAL "25753", 

VAL "245": CLEAR VAL "27523": LOAD #"v/c 1",VAL "55050714 LOAD +" 
м/с 2",VAL "27524"; GO TO VAL "5200" 

90200 CLS : FRINT ''''"ERROR was at"''"COLUMN “;PEEK VAL "28784"+ 

SGN PI 

9100 LET a=PEEK VAL "28785": LET beINT VAL “a/26"3 LET asa-b*VAL 
"26"; LET d$-CHR$ VAL "b+64"+CHRS VAL "а+65": IF NOT b THEN LET 
d$=d$ (VAL "2") 

9200 PRINT “ROW "39%: PRINT #NOT РІ; "Press ENTER to continue" 
: PAUSE NOT PI: RUN 

9999 CLEAR : FORMAT *"aiVUCALC, "*BTR$ PEEK VAL "23672": CAT W"ai 
"; SAVE *"vu calc" LINE VAL "8e3” VERIFY *: CAT di SAVE *"v/c 1 
“VAL "63058",VAL "2482": VERIFY #"v/c 1": САТ # SAVE *"v/c 2", 
VAL "27524",VAL "2978"; CAT * ' 


? 


VU-CALC CONVERTER PROGRAM: 


10 REM VU-CALC Converter i 
200 CLEAR 4e4; GO SUB Bes: PRINT "Rewind the VU-CALC tape, and 


start the recorder ready to loadin the code file:": GO SUB 7e 
5: LOAD "t"CODE 5е4 


500 CLS : PRINT "Ensure that the working wafer isin drive A rea 
dy to accept the code filesi”; GO SUB 7e3 


510 SAVE #"азу/с 1",49810,24821 SAVE #"arv/c 2" ,52292,2978: SAV 
E #"asconvert" 


400 CLS : PRINT "When this program has finished, VU-CALC will 1 


oad and run = provided all is correct that is."''"Exit to BA 
SIC, remove your working wafer and insert a 16K wafer in d 
rive A ready to be formatted and have VU-CALC savedon it."''" 


When you are sure all ís correctenter GO TO 9999 to save the new 
version of VU-CALC.": GO SUB 7es 

410 LOAD жчазуц calc"; STDP 

7000 REM Press a key 

7010 INPUT ""; PRINT #0; "Press a key when ready...": PAUSE ØD: CL 
S : RETURN 

£000 REM POKE DATA 
89010 DATA "205" А "Oe" А "246" , 205" " "58" 4 "100" , "24" 4 "14" " "205" 4 "92" 
"246", "205", "71", "100", "24", чан онун B d 
5020 DATA "2065" ` "од" 4 н245" " "2905" 4 "gon " “7 17% " нуҳ ғ "3098" в uy А "1835" 
" "237" А "46 , "32" , ч 190" А "205" А "172" А "21 14" 
8630 DATA "14" А "535" ` "gan " "242" А "229" ' „ 195" ' "74" . "300" . "197" " "42" 
А ur» ; "205" š "1990" ' "2445" ` "2р5" А 227" А "2362" 
8040 DATA 2246" NSS" "LBZ" "92" , 9126", "254" 4167", "32" нән "229 
“,4205","202","245","225","1","244","2509" 


8050 DATA "он А “20 " "252" " "25" А "17" А ы 143" 4 "ga . "215% . “905% " "219" 


à "246" 4 "209" " "19" 4 "205" $ "197% A "24%" ۴ "2487" 
£260 DATA "24" " "шун " "хх" $ "144" š "Og" е „295 ч $ 
, н 1907" А "205" ' "219" 4 "246" ' ess" 4 "181 or “ "21 18" 
89070 DATA "92" А | н ` "244" " "д" ғ "22Х" А "205" , "Bg" А "272" 4 "209" A Nig " “2 
ре" А и 197" А "246" " "62" 4 "c6 ` "205" " "12085" т 
5080 DATA "190" А "246" А ^" igs" ‚ "201 b А ess ` "141 " “ "92" А "119" А "n 195" " "3 
75" , "d mu `; uzg А “2” А "64" m "24" " “4 1 " А "1756" 

52090 DATA “14 А "д" А "247" А "24" 4 "ё" Ж “с " "gn А "247" А н 17" А ng" . "64" , aa 
1 LL] + “244" А "д" 4 "237" 4 "172" " "1557" 

8100 DATA "201 " y "257" ۶ "as" " "178" " "22" 4 “2:7” А "315" е "ан . "247" " "257 
" : "y e 8 кк А "247" " "42" 4 “61 vt А "gu А "2154" р 

81 10 BATA "дет 5 "229" " "183" А "2%7" А "4! ғ "68" Р "77" "s 4 "235" А эди 4 " 
62" š 235» 4 "27" y "27" " "27" ` "237" i "1802" 

8120 DATA "B3^,"61","92" "19", "225", "237" "B4", "19" чощ" нодон 
i "221 и ' "gu " "дӣ" А "ди " "o" . "gu 4 "1205" 

8200 PRINT "Wait a while..." 

8500 RESTORE Bez: LET a"49810: FOR mei TO 12: LET s«Q: FOR nel T 
O 16: READ a$: LET s=s+VAL аф: POKE a,VAL a$1 LET ama*1s NEXT n: 


READ a$: IF VAL a$<>s THEN PRINT "CHECKSUM ERROR IN LINE ";8e3+ 
10*m: STOP 


8510 NEXT m: CLS : RETURN 


"202" 4 “246" А и 47" ` “121 uw 


